full_matrix
Differences
This shows you the differences between two versions of the page.
Next revision | Previous revision | ||
full_matrix [2008/01/29 10:28] – created heidi | full_matrix [2008/07/22 13:31] (current) – external edit 127.0.0.1 | ||
---|---|---|---|
Line 1: | Line 1: | ||
- | ====== read data between XML tags ====== | + | ====== read full matrix |
- | * file: Node auslesen_BspTabelle.r | + | * file: read_tag-fullMatrix.r |
- | * document page: 19 | + | * document page: 38 |
\\ | \\ | ||
**code:** | **code:** | ||
< | < | ||
+ | #----open XML package----------------------------------------------------------- | ||
+ | library(XML) | ||
+ | |||
+ | #----read data between an XML tag----------------------------------------------- | ||
+ | filename = " | ||
+ | tag = "// | ||
+ | doc = xmlTreeParse(filename, | ||
+ | ch = getNodeSet(doc, | ||
+ | |||
+ | subDoc = xmlDoc(ch[[1]]) | ||
+ | tagData <- xpathApply(subDoc, | ||
+ | free(subDoc) | ||
+ | # | ||
+ | |||
+ | |||
+ | # | ||
+ | #----split string---- | ||
+ | tagData2 <- as.character(tagData) | ||
+ | |||
+ | tagData3 <- strsplit(tagData2, | ||
+ | tagMatrix <- as.matrix(as.data.frame(tagData3)) | ||
+ | tagMatrix <- gsub(" + ", " ", tagMatrix) | ||
+ | |||
+ | tagMatrix <- tagMatrix[12: | ||
+ | Data <- strsplit(tagMatrix, | ||
+ | |||
+ | #----to numeric matrix---- | ||
+ | Row <- length(Data) | ||
+ | |||
+ | Matrix <- as.matrix(as.data.frame(Data[1])) | ||
+ | Matrix <- Matrix[3: | ||
+ | Matrix <- as.numeric(Matrix) | ||
+ | numericMatrix <- t(as.matrix(Matrix)) | ||
+ | |||
+ | for(n in 2:(Row)){ | ||
+ | nextrow <- as.matrix(as.data.frame(Data[n])) | ||
+ | nextrow <- nextrow[3: | ||
+ | nextrow <- as.numeric(nextrow) | ||
+ | numericMatrix <- rbind(numericMatrix, | ||
+ | } | ||
+ | |||
+ | numericMatrix | ||
+ | </ |
full_matrix.1201598900.txt.gz · Last modified: 2008/07/22 13:30 (external edit)