Displaying 2 results from an estimated 2 matches for "baserow".
2006 Aug 31
0
Ooops, small mistake fixed (pretty printing multiple models)
...mmp <- function(regressors, bottom.matter, models.names, allmodels) {
numbers <- matrix(NA, nrow=(2*length(regressors))+length(bottom.matter),
ncol=length(models.names))
colnames(numbers) <- models.names
rownames(numbers) <- rep("t", nrow(numbers))
baserow <- 1
for (i in 1:length(regressors)) {
if (regressors[i] == "Intercept") {
regex <- "^\\(Intercept\\)$"
} else {
regex <- paste("^", regressors[i], "$", sep="")
}
rownames(numbers)[baserow] <- regressors[i]...
2006 Aug 31
0
Pretty-printing multiple regression models
...mmp <- function(regressors, bottom.matter, models.names, allmodels) {
numbers <- matrix(NA, nrow=(2*length(regressors))+length(bottom.matter),
ncol=length(models.names))
colnames(numbers) <- models.names
rownames(numbers) <- rep("t", nrow(numbers))
baserow <- 1
for (i in 1:length(regressors)) {
if (regressors[i] == "Intercept") {
regex <- "^\\(Intercept\\)$"
} else {
regex <- paste("^", regressors[i], "$", sep="")
}
rownames(numbers)[baserow] <- regressors[i]...