Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- library(tidyverse)
- library(data.table)
- ugriz <- read.table("QSOs_1st_50k.dat-mags.dat")
- ugriz <- data.frame(ugriz)
- fields = c('name', 'z','delta_z','NED_class','SDSS_class','no_radio','radio_max','no_UV', 'UV_min',
- 'u', 'g', 'r', 'i', 'z_mag', 'I', 'J', 'H', 'K', 'W1', 'SPIT_5',
- 'W2', 'SPIT_8', 'W3', 'W4', 'NUV', 'FUV')
- rename(ugriz, ned = V1, redshift = V2) # this works fine
- # attempt 1 (tried with and without the quotes):
- rename(ugriz, c('name', 'z', 'delta_z', 'NED_class', 'SDSS_class', 'no_radio', 'radio_max', 'no_UV', 'UV_min',
- 'u','g','r','i','z_mag','I','J','H','K', 'W1', 'SPIT_5',
- 'W2','SPIT_8', 'W3', 'W4', 'NUV', 'FUV'), c('V1':'V26'))
- # attempt 2:
- setnames(ugriz, old = c('V1':'V26'), new = fields)
Advertisement
Add Comment
Please, Sign In to add comment