Файл: СанктПетербургский государственный университет телекоммуникаций им проф. М. А. БончБруевича.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 – Разработанное приложение

---