Novichok+: R Как создать функцию читает дирректорию с файлами сообщает число наблюдений в каждом файле?
Novichok+
unregistered
Автор темы
Ответить
N
Novichok+ unregisteredАвтор темы
9 лет назад / 22 октября 2015 00:03
R Нужно создать функцию которая читает дирректорию с файлами и сообщает число наблюдений в каждом файле. Функция должна вернуть дата фрэем где первый колонка — имя файла, вторая колонка — число выполненных кейсов.

Содержимое файла - кактинка 1-0
Результат работы функции - картинка 2-1

Прототип функции:
01complete <- function(directory, id = 1:332) {## 'directory' is a character vector of length 1 indicating
02## the location of the CSV files
03## 'id' is an integer vector indicating the monitor ID numbers
04## to be used
05## Return a data frame of the form:
06## id nobs
07## 1  117
08## 2  1041
09## ...
10## where 'id' is the monitor ID number and 'nobs' is the
11## number of complete cases

Исправлено: Novichok+, 22.10.2015 00:20

К сообщению приложены файлы:
loyolla
Member
541/568 ответов
19 лет на iXBT, с декабря 2005
Чаще пишет РІ "Программирование" (95%)
Инфо Ответить
l
loyolla Member
9 лет назад / 22 октября 2015 00:38
Novichok+
данные те же?
01complete <- function(directory, id = 1:332) {
02  
03    ## same as previous function
04    filenames <- sapply(id, function(x){ sprintf("%s/%03d.csv", directory, x); } );
05     
06    numbers <- unlist(lapply(filenames, function(x){
07        ## read data into dataset
08        ds   <- data.matrix(read.csv(file = x, header = T));
09        ## create dataset with records containing T for corresponded entries in ds with both valid observations and F otherwise
10        good <- !(is.na(ds[,2])) & !(is.na(ds[,3]));    
11        ## remove records which corresponded value in good == F                                                    
12        ds   <- ds[good,, drop=F];                           
13        ## get number of rows
14        nrow(ds); }));
15  
16    ## yahoo!..
17    return(data.frame(id=id, nobs=numbers));
18}
Novichok+
unregistered
Автор темы
Ответить
N
Novichok+ unregisteredАвтор темы
9 лет назад / 22 октября 2015 01:46
loyolla:
Novichok+
данные те же?
01complete <- function(directory, id = 1:332) {
02  
03    ## same as previous function
04    filenames <- sapply(id, function(x){ sprintf("%s/%03d.csv", directory, x); } );
05     
06    numbers <- unlist(lapply(filenames, function(x){
07        ## read data into dataset
08        ds   <- data.matrix(read.csv(file = x, header = T));
09        ## create dataset with records containing T for corresponded entries in ds with both valid observations and F otherwise
10        good <- !(is.na(ds[,2])) & !(is.na(ds[,3]));    
11        ## remove records which corresponded value in good == F                                                    
12        ds   <- ds[good,, drop=F];                           
13        ## get number of rows
14        nrow(ds); }));
15  
16    ## yahoo!..
17    return(data.frame(id=id, nobs=numbers));
18}
Да, данные те же.
Partisan
Member
1535/17519 ответов
25 лет на iXBT, с декабря 1999
Чаще пишет РІ "Политика" (54%)
Россия
Инфо Ответить
P
Partisan Member
9 лет назад / 22 октября 2015 08:54
Непонятно, кто из вас учится.
Ваш ответ:

Нет значка Нет значка Р’РѕС‚ тут! Лампочка Восклицание Р’РѕРїСЂРѕСЃ Класс! Улыбка Злость Огорчение РџРѕРіРѕРІРѕСЂРёРј? Краснею Подмигивание Ругаю РћРґРѕР±СЂСЏСЋBIUdelSxsupxsuboffsp spoilerqurlimgvideo• list1. list1 codeprecenter-hr-rusQWE→ЙЦУ
файлыочистить
Ваше имя: Авторизуйтесь Предпросмотр В полную форму
вставить выделенную цитату в окно ответа
Если Вы считаете это сообщение ценным для дискуссии (не обязательно с ним соглашаться), Вы можете поблагодарить его автора, а также перечислить ему на счет некоторую сумму со своего баланса (при отзыве благодарности перечисленная сумма не будет вам возвращена).
Также вы можете оценить сообщение как неудачное.
В течение суток можно 20 раз оценить сообщения разных участников (купите Premium-аккаунт, либо оплачивайте оценки сверх лимита).
Если Вы считаете это сообщение ценным для дискуссии (не обязательно с ним соглашаться), Вы можете поблагодарить его автора, а также перечислить ему на счет некоторую сумму со своего баланса (при отзыве благодарности перечисленная сумма не будет вам возвращена).
Также вы можете оценить сообщение как неудачное.
В течение суток можно 20 раз оценить сообщения разных участников (купите Premium-аккаунт, либо оплачивайте оценки сверх лимита).
Последние обсуждения в Конференции
04:29Пандемия COVID-2019 (было - РњРёСЂСѓ угрожает РІРёСЂСѓСЃ пандемического РіСЂРёРїРїР°, может погибнуть МИЛЛИАРД человек.) Общий
04:28Электромобили - грядет революция? Авто
04:25РћС‚ Windows Рє Linux Unix
04:25Будет ли РІРѕР№РЅР° Р РѕСЃСЃРёРё СЃ Украиной? Политика
04:21ИИ - осознание себя? ИИ
04:17Люблю ругалики Флуд
04:15FF БЗК Canon EOS R (RP, R5, R3, R1 Рё С‚.Рґ.) Рё оптика Рє РЅРёРј Фото
04:05Выбор посудомоечной машины Бытовая техника
03:55Сисадминская курилка Администрирование
03:50РЇ плакаль... (картинка РїСЂРёРєРѕР») Юмор
03:47Ресиверы Yamaha - пообщаемся? FAQ РІ первом посте ДК аудио
03:44Р’РѕРїСЂРѕСЃС‹ знатокам o S.M.A.R.T. Накопители
03:40Отзывы Рѕ PrivalSystems (аналог skype) Интернет
03:40Выбор цветного струйного МФУ формата Рђ3 РІ офис Периферия
03:28Как выразить АНАЛИТИЧЕСКИ значения корней алгебраического уравнения 5-Р№ степени через значения корней его резольвенты 6-Р№ степени (которые найдены, например, численно) Наука
03:28РџРѕРіРѕРІРѕСЂРёРј Рѕ РїСЂРёРїРѕСЏС… Рё флюсах Эл. устройства
03:18Path of Exile. Врываемся РІ приятно выпуклый эндгейм PoE 2 6 декабря 2024-РіРѕ Рё ждём 3.26 РІ первой части РєРѕРіРґР°-РЅРёР±СѓРґСЊ! Игры
02:52Выбор бюджетного "цифрового" (китайского) усилителя Стерео
02:38Какие триллеры посоветуете? Кино
02:35Выбор матраса Ремонт
Последние темы без ответов
вчераАрхаичные выражения, подзабытые слова, названия, Р° также уходящие РІ прошлое культурные традиции XX века. Культура
вчераBattlefield 2042 drweb Игры
вчераМышь лагает Рё плавает РїСЂРё запуске любого приложения Тех. поддержка
вчераLLM Qwen – возможности, опыт использования, ограничения ИИ
вчераНе РјРѕРіСѓ прошить UUID РЅР° материнской плате ASRock H55M-LE РЅРё СЃ помощью amidedos РЅРё ее версии РїРѕРґ Windows - осталось только слить дамп Р±РёРѕСЃР°, редактировать РІ HEX-редакторе Рё шить обратно? Тех. поддержка
2 дня[Решено] Установил и успешно запустил пакет motion под OpenWRT, но не могу зайти на его админку и получить видеопоток с помощью VLC-плеера Unix
2 РґРЅСЏDenon dcd-3000 ремонт Стерео
3 дняИИ шутит. ИИ
4 РґРЅСЏThecus 4560/2520 РїРѕРёСЃРє прошивки. НАС
4 дняРоссийская РёРЅРґРё-РїРѕРї-музыка Культура
23:59вчераНовый смартфон Samsung за 120 долларов. Представлен Samsung Galaxy A06 5G: 50 Мп, 5000 мАч, IP54 и 4 года обновлений
23:51вчераMicrosoft создала квантовый чип Majorana 1: миллион кубитов на ладони
22:46вчераРоссийские астрономы обнаружили редкую двойную звезду с магнитным белым карликом Gaia 19cwm
22:35вчераПока видеокарты GeForce отсутствуют либо дорожают, пользователи активно переходят на Radeon. Как минимум так говорит статистика для Южной Кореи
22:16вчераЕсли хочется GeForce RTX 50, но максимально дёшево. Существование RTX 5050 Laptop подтверждено
22:06вчераУчёные «просветили стену» из титана в поисках аксионов на ускорителе в Гамбурге
21:59вчераGeForce RTX 5090 оказалась в семь раз слабее RTX 4090. Nvidia убрала поддержку PhysX из свежего драйвера для видеокарт RTX 50
21:48вчера800 л.с., рама и полный привод. Опубликованы фото супермощного Tank 400
21:45вчераTesla строит первую общедоступную зарядную станцию для электрогрузовиков в Лос-Анджелесе
21:39вчераNASA завершило сборку первого двигателя RS-25 для миссии «Артемида V»
20+ лет назад в этот день обсуждали
2002Citrix via Internet Сети
2002Minolta RD175 - РќРЈР–РќРђ ПОМОЩЬ!!!!! Фото
2002W2k - проблема СЃ флоппи-РґРёСЃРєРѕРј. OС и сист. ПО
2002Получил РїРѕ почте РІРёСЂСѓСЃ. Лежит РІ базе OUTLOOKa. Как лучше поступить? Интернет
2002Как можно разогнать 500 Селерон РЅР° bx Разгон
2002Дождемся KT333A или нет? Сист. платы
2004unmountable_boot_volume Накопители
2004Как сделать, чтобы Сѓ РїРёСЃСЊРјР° обратный адрес был РѕРґРёРЅ, Р° отвечали РЅР° него РЅР° РґСЂСѓРіРѕР№ адрес? Интернет (архив)
2005Компьютер перезапускается РІРѕ время POST Тех. поддержка
2005Выгонят ли Р РѕСЃСЃРёСЋ РёР· большой восьмерки(G-8) Политика