guiCreate("data.frame", Name = "nullbase")
for (i in 1:100)
{data <- t(as.data.frame(matrix(runif(7*100, min=0, max=1), ncol=100)));
ntraits <- ncol(data);
nindividuals <- nrow(data);
varexp <- (ntraits-1)/nindividuals;
inti <- var(eigen(cor(data), symmetric = T, only.values = T)$values) - (varexp);
ppp<-cbind(inti, cor(data));
cien7 <- copy.row(target = cien7, target.start.row = "<END>", source = ppp, source.row.spec = "<ALL>", overwrite = F)
}
export.data(DataSet = "cien7", Columns = "ALL", Rows = "ALL", Delimiter = ",", ColumnNames = T, RowNames = T, Quotes = T, LineLength = "", FileName = "C:\\cien7.xls", FileType = "Excel", OdbcConnection = "", OdbcTable = "", FormatString = "")
上述程序是别人发来给我,程序通过随机抽取均匀分布的数构建100*7的矩阵,计算该矩阵相关矩阵的特征值及inti值。但是我用s-plus8.0运算时,程序给出的结果是:Problem in export.data: argument FormatString= not matched:export.data(DataSet = "cien7", Columns = "ALL", Rows = "ALL", Delimiter = ",",
ColumnNames = T, RowNames = T, Quotes = T, LineLength = "", FileName = "C:\\cien7.xls", FileType = "Excel", OdbcConnection = "", OdbcTable = "", FormatString = " ")
请各位高手指点一下,如何修改输出结果以便程序可输出我想要的结果。
谢谢!