/// <summary> /// executes R script - returns result /// </summary> /// <param name="strRScript"></param> /// <returns></returns> public Object ExecuteRScript(string strRScript) { try { m_strError = null; if (m_rServer == null) { throw new Exception("R-Client is not initialized."); } Object result = null; try { result = m_rServer.Evaluate(strRScript); } catch { throw new Exception(this.Error); } return(result); } catch (Exception exception) { throw new Exception("Exception in CRClient::ExecuteRScriptNoResult()", exception); } }
private void btcargarObjeto_Click(object sender, EventArgs e) { openFileDialog1.Filter = "Text file (*.txt)|*.txt"; if ((openFileDialog1.ShowDialog() == DialogResult.Cancel)) { return; } string fileName = openFileDialog1.FileName.Replace(@"\", "/"); string objectName = System.IO.Path.GetFileNameWithoutExtension(openFileDialog1.FileName); //añade el nuevo objeto a la TOC o si ya existía, lo sobreescribe if (TOC.ContainsKey(objectName)) { TOC.Remove(objectName); } else { TOC.Add(objectName, fileName); } //creamos un nuevo dataframe en R string leerFichero = objectName + "<-read.table('" + fileName + "',header=T)"; sc1.Evaluate(leerFichero); //listamos todos los objetos menos los creados para consultar información en R. sc1.Evaluate("dir <-ls()"); string[] dir = (string[])sc1.GetSymbol("dir"); lstObjetos.Items.Clear(); for (int i = 0; i < dir.Length; i++) { if (dir[i] != "wd" & dir[i] != "dir" & dir[i] != "campos" & dir[i] != "filasNombre" & dir[i] != "camposNombre" & dir[i] != "campoValores") { lstObjetos.Items.Add(dir[i]); } } }
public void essai() { object o1; int n = 20; StatConnector sc1 = new StatConnector(); sc1.Init("R"); sc1.SetSymbol("n1", n); sc1.Evaluate("x1<-rnorm(n1)"); o1 = sc1.GetSymbol("x1"); double Xrnd = (double)o1; MessageBox.Show(Xrnd.ToString()); }