Файл: СанктПетербургский государственный университет телекоммуникаций им проф. М. А. БончБруевича.docx

Санкт-Петербургский государственный университет телекоммуникаций
им. проф. М.А.Бонч-Бруевича

ИНО
Дисциплина «Технологии обработки информации»

Практические задания. Вариант 3.
Студент Антипов Егор Викторович

Группа  ИБ-04з

Зач. 1910523


Дата сдачи работы

« »___________2023г.

Преподаватель Филипов Ф.В.

Санкт-Петербург

2023 г.

Практическое задание №1.

Задание: Используя фрейм present, вычислите абсолютные различия между количеством мальчиков и девочек, родившихся в каждом году, и определите, в каком году была самая большая абсолютная разница в количествах новорожденных девочек и мальчиков?

Код R приведен в листинге 1.

Листинг 1. Код программы

source("http://www.openintro.org/stat/data/present.R"); dif = abs(present$boys-present$girls); dif_frame = data.frame(dif); max_dif = which.max(dif); present$year[max_dif];

Ответ: В 1963 году.

Практическое задание №2.

Исходные данные: Загрузите XML данные о ресторанах Балтимора в переменную res с сайта:

https://d396qusza40orc.cloudfront.net/getdata%2Fdata%2Frestaurants.xml

Задание: Сколько ресторанов описано в загруженных данных? В переменную zip прочитайте все zipcode. Посчитайте число ресторанов с zipcode = 21218?

Код R приведен в листинге 2.

Листинг 2. Код программы

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)

Ответ: 69

Практическое задание №2.

Задание: Создайте веб приложение Shiny с заголовком «Вэб юмор!», использующее на «Боковой панели» виджет «Числовой ввод». При вводе номера комикса приложение в «Основной панели» должно выводить соответствующий комикс с сайта: http://xkcd.com/.

Код R приведен в листинге 3. Интерфейс разработанного приложения приведен на рисунке 1.

Листинг 3. Код программы

server.r library("RXKCD") shinyServer(function(input, output) { output$pic <- renderPlot({ getXKCD(input$textinput1) }) })

ui.r shinyUI(fluidPage( titlePanel("Вэб юмор!"), sidebarLayout( sidebarPanel( textInput("textinput1", label = "Выбери свой комикс", value = "")), mainPanel(plotOutput("pic")) ) ))

---

Рисунок 1 – Разработанное приложение

---