source('~/study/ТОИ/lab_1_3/script.R')
source('~/study/ТОИ/lab_1_3/script.R')
}
library(XML)
# Рекурсивная функция для анализа XML-дерева
# и обработки вершин  модели DOM
visitNode = function(node) {
if (is.null(node)) {
# последняя вершина достигнута, выход
return()
}
print(paste("Node: ", xmlName(node)))
num.children = xmlSize(node)
if(num.children == 0 ) {
print( paste("   ", xmlValue(node)))
}
# Погружаемся на следующий уровень
for (i in 1 : num.children) {
visitNode(node[[i]]) # i-й потомок
}
}
# Загружаем имя анализируемого XML файла
xmlfile = "restaurants.xml"
# Схраняем XML дерево в память в объекте xtree
xtree = xmlInternalTreeParse(xmlfile)
# Переходим к корню дерева
root = xmlRoot(xtree)
# Обрабатываем вершины дерева функцией
visitNode(root)
library(XML)
# Рекурсивная функция для анализа XML-дерева
# и обработки вершин  модели DOM
visitNode = function(node) {
if (is.null(node)) {
# последняя вершина достигнута, выход
return()
}
print(paste("Node: ", xmlName(node)))
num.children = xmlSize(node)
if(num.children == 0 ) {
print( paste("   ", xmlValue(node)))
}
# Погружаемся на следующий уровень
for (i in 1 : num.children) {
visitNode(node[[i]]) # i-й потомок
}
}
# Загружаем имя анализируемого XML файла
xmlfile = "restaurants.xml"
# Схраняем XML дерево в память в объекте xtree
xtree = xmlInternalTreeParse(xmlfile)
# Переходим к корню дерева
root = xmlRoot(xtree)
# Обрабатываем вершины дерева функцией
visitNode(root)
source('~/study/ТОИ/lab_1_3/script.R')
source('~/study/ТОИ/lab_1_3/script.R')
xml_data
source('~/study/ТОИ/lab_1_3/script.R')
data
length(xml_data)
source('~/study/ТОИ/lab_1_3/script.R')
length(xml_data[['row']])
source('~/study/ТОИ/lab_1_1/script.R')
x = read.csv(url("http://d396qusza40orc.cloudfront.net/getdata%2Fdata%2Fss06hid.csv"))
result <- subset(x, PUMA == 800)
length(result$PUMA)
source('~/study/ТОИ/lab_1_3/script.R')
length(xml_data$row)
print("Ресторанов: " + length(xml_data$row))
print("Ресторанов: " . length(xml_data$row))
print("Ресторанов: " length(xml_data$row))
print("Ресторанов: " )
print(Ресторанов: length(xml_data$row))
source('~/study/ТОИ/lab_1_3/script.R')
print(xml_data$row$zipcode)
print(xml_data$row$1$zipcode)
print(xml_data$row[[1]]$zipcode)
for (i in 1:length(xml_data$row)) {
zipcode <- xml_data$row[[i]]$zipcode
}
for (i in 1:length(xml_data$row)) {
zipcode <- xml_data$row[[i]]$zipcode
if (zipcode == 21218) {
count <- count + 1
}
}
print(count)
count <- 0
for (i in 1:length(xml_data$row)) {
zipcode <- xml_data$row[[i]]$zipcode
if (zipcode == 21218) {
count <- count + 1
}
}
print(count)
count <- 0
for (i in 1:length(xml_data$row)) {
zipcode <- xml_data[['row']][[i]][['zipcode']]
if (zipcode == 21218) {
count <- count + 1
}
}
print(count)
restaurants_count <- length(xml_data[['row']])
print(restaurants_count)
count <- 0
for (i in 1:restaurants_count) {
zipcode <- xml_data[['row']][[i]][['zipcode']]
if (zipcode == 21218) {
count <- count + 1
}
}
print(count)
restaurants_count <- length(xml_data[['row']])
sprintf("Количество рестаранов: %d", restaurants_count)
count <- 0
for (i in 1:restaurants_count) {
zipcode <- xml_data[['row']][[i]][['zipcode']]
if (zipcode == 21218) {
count <- count + 1
}
}
sprintf("Количество рестаранов с zipcode = 21218: %d", count)
source('~/study/ТОИ/lab_1_3/script.R')
source('~/study/ТОИ/lab_1_3/script.R')
source('~/study/ТОИ/lab_1_3/script.R', echo=TRUE)
require(XML)
data <- xmlParse("http://d396qusza40orc.cloudfront.net/getdata%2Fdata%2Frestaurants.xml")
xml_data <- xmlToList(data)
restaurants_count <- length(xml_data[['row']])
sprintf("Количество рестаранов: %d", restaurants_count)
count <- 0
for (i in 1:restaurants_count) {
zipcode <- xml_data[['row']][[i]][['zipcode']]
if (zipcode == 21218) {
count <- count + 1
}
}
sprintf("Количество рестаранов с zipcode = 21218: %d", count)
